home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0643A.ZIP / VIDPOP / WINDOWS.PRG < prev   
Text File  |  1987-03-08  |  2KB  |  79 lines
  1. ************************************************************
  2. *
  3. *       Program: WINDOW.PRG
  4. *
  5. *        Author: Paul Ferrara
  6. *     Copyright: (c) 1986 COLUMBUSOFT
  7. *
  8. *          Uses: VIDPOP.COM from "The Research Group"
  9. *                A utility furnished with SAYWHAT?!
  10. *
  11. *   Last Change: 05-14-86 05:47
  12. *
  13. ************************************************************
  14. *
  15. * Will run with either dBase III version 1.1 or dBase III PLus
  16. *
  17. * Note: 1) SET MCOLOR=C or SET MCOLOR=M from DOS depending on
  18. *          whether you have a color or mono card/monitor.
  19. *       2) Run VIDPOP.COM from the DOS prompt.
  20. *       3) Load dBase and the program by entering DBASE WINDOW
  21. *          from the DOS prompt or DO WINDOW from dBase's dot
  22. *          prompt.
  23. *
  24. SET BELL OFF
  25. SET TALK OFF
  26. SET SAFETY OFF
  27. SET DELIMITER OFF
  28. SET DELETE ON
  29. SET SCOREBOARD OFF
  30. SET COLOR TO W/ , /W
  31. ? "Ready to issue STORE GETNEV statement."
  32. STORE GETENV("MCOLOR") TO mcolor
  33. ?? CHR(255)+CHR(255)+"&mcolor.RED/"
  34. ?
  35. WAIT
  36.  
  37. ?? CHR(255)+CHR(255)+"&mcolor.GREEN/"
  38. ?? CHR(255)+CHR(255)+"&mcolor.BLUE/"
  39. @  0 ,0
  40. STORE 1 TO mcurrent
  41. DO WHILE .T.
  42.    SET CONSOLE OFF
  43.    WAIT TO choice
  44.    SET CONSOLE ON
  45.    DO CASE
  46.       CASE choice="1"
  47.          DO CASE
  48.             CASE mcurrent=1
  49.                ?? CHR(255)+CHR(255)+"&mcolor.GREEN/"
  50.                STORE 2 TO mcurrent
  51.             CASE mcurrent=2
  52.                ?? CHR(255)+CHR(255)+"&mcolor.BLUE/"
  53.                STORE 1 TO mcurrent
  54.             CASE mcurrent=3
  55.                ?? CHR(255)+CHR(255)+"&mcolor.BLUE/"
  56.                STORE 1 TO mcurrent
  57.          ENDCASE
  58.          @  0 ,0
  59.       CASE choice="2"
  60.          DO CASE
  61.             CASE mcurrent=1
  62.                ?? CHR(255)+CHR(255)+"&mcolor.RED/"
  63.                STORE 3 TO mcurrent
  64.             CASE mcurrent=2
  65.                ?? CHR(255)+CHR(255)+"&mcolor.RED/"
  66.                STORE 3 TO mcurrent
  67.             CASE mcurrent=3
  68.                ?? CHR(255)+CHR(255)+"&mcolor.GREEN/"
  69.                STORE 2 TO mcurrent
  70.          ENDCASE
  71.          @  0 ,0
  72.       CASE choice="0"
  73.          SET TALK ON
  74.          CLEAR
  75.          EXIT
  76.    ENDCASE
  77. ENDDO
  78. * EOF: WINDOW.PRG
  79.